home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_06_1985_Transactor_Publishing.d64
/
cursor position
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
812b
|
56 lines
0 rem cursor position (sept 4/84) :
1 :
2 rem 1 statement, 1 function
3 :
4 rem keyword characters: 10
5 :
6 rem keyword routine line ser #
7 rem s/cursor csr 2574 004
8 rem f/cloc csrloc 2606 005
9 :
10 rem u/usfp (2620/006)
11 :
12 rem ================================
13 :
101 .asc "curso[210]"
600 .asc "clo[195]"
1101 .word csr-1
1600 .word csrloc-1
2574 csr jsr $b79e
2576 cpx #$19
2578 bcs cs2
2580 txa
2582 pha
2583 ldy #0
2584 jsr $79
2585 beq cs1
2586 cmp #","
2587 bne cs3
2588 jsr $b79b
2589 cpx #$28
2590 bcs cs2
2592 txa
2594 tay
2596 cs1 pla
2598 tax
2599 clc
2600 jmp $fff0
2602 cs2 jmp $b248
2603 cs3 jmp $af08
2604 ;
2606 csrloc lda $d1
2608 clc
2610 adc $d3
2612 tay
2614 lda $d2
2616 adc #0
2618 ;
2620 usfp ldx #0
2622 stx $0d
2624 sta $62
2626 sty $63
2628 ldx #$90
2630 sec
2632 jmp $bc49
2634 ;